program exercise1
use my_own_da
use exercise_lecture_1
IMPLICIT NONE
type(my_taylor) a(4),input
TYPE(VECTORFIELD) V
integer i

input=0.d0;

input=exp(-0.34d0+(1.d0.mono.1)+(2.d0.mono.2))

a(1)=asint(input)
a(2)=asint_int(input)
a(3)=asint_inv(input)
A(4)=asint_inv_vecfield(input)
do i=1,4
 write(6,*) " "
 call print(a(i),6)
enddo


end program exercise1